home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
AMICUS
/
AMICUS12.ADF
/
cr2ascii.msb
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1986-08-30
|
292b
|
16 lines
OPEN "r", #1, "ram:iffed", 1
OPEN "o", #2, "ram:out"
FIELD #1, 1 AS a$
10 GET #1
IF EOF(1) THEN CLOSE 2 : STOP
x = x+1
b$ = a$+"" : IF b$=CHR$(13) THEN b$ = CHR$(10) : x=0
PRINT #2, b$;
PRINT b$;
IF x > 75 AND b$=" " THEN PRINT #2, "" : PRINT : x=0
GOTO 10